home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / epp / pmodules / floattostring.e < prev    next >
Text File  |  1980-01-05  |  457b  |  18 lines
  1. OPT TURBO
  2.  
  3. CONST FLOAT_MAX_AFT=8,
  4.       FLOAT_MAX_STRING_LENGTH=9
  5.  
  6. PROC floatToString(string, float, maxAft)
  7.   DEF fore, aft, aftString[FLOAT_MAX_AFT]:STRING
  8.   fore:=SpFix(float)
  9.   aft:=SpFix(SpMul(SpSub(SpFlt(SpFix(float)), float), 10000000.0))
  10.   StringF(string, '\d.', fore)
  11.   StringF(aftString, '\z\d[7]', aft)
  12.   maxAft:=IF maxAft>FLOAT_MAX_AFT THEN FLOAT_MAX_AFT ELSE maxAft
  13.   SetStr(aftString, maxAft)
  14.   StrAdd(string, aftString, ALL)
  15. ENDPROC string
  16.  
  17.  
  18.